home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1993 / MacHack 1993.toast / MacHack™ 1987-1992 / MacHack™ '90 / Other Stuff / Demos ƒ / Demo AppMaker / Demo AppMaker™ / Demo AppMaker™.rsrc / TmPT_502_EachDialog < prev    next >
Encoding:
Text File  |  1990-03-23  |  1.4 KB  |  65 lines
  1. %case buildOrder.modal%
  2.     %if modal%
  3.         {    %dlogname%.p%        %}
  4.     %elsif modaloneshot%
  5.         {    %dlogname%.p%        %}
  6.     %end if%
  7. %case zbuildOrder.modeless%
  8.     %if modeless%
  9.         {    z%dlogname%.p%        %}
  10.     %end if%
  11. %case buildOrder.modeless%
  12.     %if modeless%
  13.         {    %dlogname%.p%        %}
  14.     %end if%
  15. %case sourcefile%
  16.     %if modal%
  17.         %genfile modalDialog dlogname%
  18.     %elsif modaloneshot%
  19.         %genfile modalOneShot dlogname%
  20.     %elsif modeless%
  21.         %genfile zmodelessDialog z+dlogname%
  22.         %if not fileExists dlogname%
  23.             %genfile modelessDialog dlogname%
  24.         %endif%
  25.     %end if%
  26. %case zinterfaceModeless%
  27.     %if modeless%
  28.         type
  29.             Z%DlogName%        = object (CDirector)
  30.         
  31.                 { Panes in this dialog: }
  32.                 %for each item gen instance%
  33.         
  34.                 {----------}
  35.                 Procedure I%dlogname%%    %(aSupervisor:    CApplication);
  36.                 %for each item gen zMake.decl%
  37.  
  38.                 Procedure CloseWind        (theWindow:        CWindow); override;
  39.                 Procedure DoCommand%    %(theCommand:    longint); override;
  40.         
  41.             end; {Z%DlogName%}
  42.  
  43.     %endif%
  44. %case interfaceModeless%
  45.     %if modeless%
  46.         type
  47.             C%DlogName%        = object (Z%DlogName%)
  48.                 %for each item gen instance.override%
  49.                 %for each item gen Make.decl%
  50.         
  51.                 Procedure DoCommand%    %(theCommand:    longint); override;
  52.         
  53.             end; {C%DlogName%}
  54.  
  55.     %endif%
  56. %case instanceModeless%
  57.     %if modeless%
  58.         its%dlogname%:            C%dlogname%;
  59.     %endif%
  60. %case createModeless%
  61.     %if modeless%
  62.         New (its%dlogname%);
  63.         its%dlogname%.I%dlogname% (self);
  64.     %endif%
  65.